home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / fido / EasyFR20.lha / EasyFR / Install / Workbench_2.0 < prev    next >
Text File  |  1995-04-25  |  5KB  |  196 lines
  1.  
  2. ; Install script for EasyFR (Workbench 2.0)
  3.  
  4. (set efrdir "/")
  5.  
  6. ;=============================================================================
  7. ; English strings
  8.  
  9. (set default_lang 1)
  10.  
  11. (set #bad-kick
  12. (cat "You must be using Kickstart 2.04 to install using this script!"
  13. ))
  14.  
  15. (set #where-mail "Where should MAIL: be assigned ?")
  16. (set #where-efr
  17. (cat "Where would you like to install EasyFR?\n"
  18.      "(A drawer will be created)"
  19. ))
  20.  
  21. (set #add-mail-startup
  22. (cat "\nAdd EasyFR: assignment to the \"S:user-startup\" "
  23.      "so that your system will be properly configured to use EasyFR?"
  24. ))
  25.  
  26. (set #which-language
  27. (cat "\nWhich languages should be installed?"
  28. ))
  29. (set #which-language-help
  30. (cat "\nThe Amiga can be operated in many different"
  31.           " languages. If you want EasyFR to use the same"
  32.      " language as the Amiga Workbench"
  33.           " then a catalog file must be copied to your"
  34.           " harddisk for each language supported.\n\n"
  35.           "To reduce the amount of space consumed by the"
  36.           " language files, you can select to have only the"
  37.           " files of specific languages copied.\n\n"
  38.           "Simply check the boxes of the languages you wish"
  39.           " to have available on your system.\n\n"
  40.           @askoptions-help
  41. ))
  42.  
  43. (set #witch-processor
  44. (cat "\nPlease, select witch binary version of EasyFR 2.0"
  45.         " you would like to install.\n\n"
  46. ))
  47. (set #witch-processor-help
  48. (cat "\nEasyFR 2.0 is distributed in two version: one"
  49.         " compiled for 68000 (and 68010) processors,"
  50.         " the other compiled for 68020, 68030, 68040"
  51.         " and 68060 processors. If you a 32 bit processors"
  52.         " you will have better performance."
  53.         @askoptions-help
  54. ))
  55.  
  56. (set #witch-help
  57. (cat "\nPlease, choose the language of the on-line"
  58.         " amigaguide help you wish to install.\n\n"
  59. ))
  60. (set #witch-help-help
  61. (cat "\nEasyFR has on-line help. This mean that every"
  62.         " time you press the help key, the guide will"
  63.         " popup displaying the section you are currently"
  64.         " using.\n"
  65.         @askoptions-help
  66. ))
  67.  
  68. (set #install-msg
  69. (cat "\n\nEasyFR installation script.\n"
  70.      "This script installs EasyFR on your Amiga.\n\n"
  71.      "Read the README file for more information\n"
  72.      "on the distribution of EasyFR.\n\n"
  73.      "EasyFR © 1994 Angelo Vizzarro\n"
  74.      "EasyFR 2.0 © 1995 Francesco Dipietromaria\n"
  75.      "All rights reserved."
  76. ))
  77.  
  78. ;=============================================================================
  79.  
  80. (message #install-msg)
  81.  
  82. (welcome)
  83.  
  84. (set EasyFRdestdir (getassign "EasyFR"))
  85.  
  86. (if EasyFRdestdir
  87. (set dummy 1)
  88. (
  89.         (set EasyFRdestdir
  90.                 (tackon
  91.                         (askdir
  92.                                 (prompt #where-efr)
  93.                                 (help @askdir-help)
  94.                                 (default @default-dest)
  95.                         )
  96.                         "EasyFR"
  97.                 )
  98.         )
  99.         (makedir EasyFRdestdir (infos))
  100.         (makeassign "EasyFR" EasyFRdestdir (safe))
  101.         (startup "EasyFR"
  102.                 (prompt #add-mail-startup)
  103.                 (help @startup-help)
  104.                 (command
  105.                         "Assign EasyFR: \"" EasyFRdestdir "\"\n"
  106.                         "path EasyFR:C add\n"
  107.                 )
  108.         )
  109. ))
  110.  
  111. (set @default-dest EasyFRdestdir)
  112.  
  113. (makedir (tackon EasyFRdestdir "C"))
  114. (makedir (tackon EasyFRdestdir "Extras") (infos))
  115.  
  116. (set processor  (askchoice  (prompt #witch-processor)
  117.                             (help #witch-processor-help)
  118.                             (choices "68000" "68020+")
  119.                             (default 0)
  120.                 )
  121. )
  122.  
  123. (set help_path
  124.         (tackon efrdir
  125.                 (select  (askchoice (prompt #witch-help)
  126.                                 (help #witch-help-help)
  127.                                 (choices "English" "Italiano")
  128.                                 (default (- default_lang 1))
  129.                         )
  130.                         "Docs/English"
  131.                         "Docs/Italiano"
  132.                         ""
  133.                 )
  134.         )
  135. )
  136.  
  137. (if processor
  138. ((copyfiles
  139.         (source (tackon efrdir "EasyFR.020"))
  140.         (dest EasyFRdestdir)
  141.         (infos)
  142. )
  143. (rename (tackon EasyFRdestdir "EasyFR.020")
  144.         (tackon EasyFRdestdir "EasyFR")
  145. )
  146. (rename (tackon EasyFRdestdir "EasyFR.020.info")
  147.         (tackon EasyFRdestdir "EasyFR.info")
  148. ))
  149. (copyfiles
  150.         (source (tackon efrdir "EasyFR"))
  151.         (dest EasyFRdestdir)
  152.         (infos)
  153. ))
  154.  
  155. (copyfiles
  156.         (source (tackon efrdir "EasyFR.sleep.info"))
  157.         (dest EasyFRdestdir)
  158. ) 
  159.  
  160. (copyfiles
  161.         (source (tackon efrdir "C/mouse2"))
  162.         (dest (tackon EasyFRdestdir "C"))
  163. )
  164.  
  165. (copyfiles
  166.         (source (tackon efrdir "Extras/setfilelist"))
  167.         (dest (tackon EasyFRdestdir "Extras"))
  168.         (infos)
  169. )
  170.  
  171. (copyfiles
  172.         (source (tackon help_path "EasyFR.guide"))
  173.         (dest EasyFRdestdir)
  174.         (infos)
  175. )
  176. (if (< (/ (getversion) 65536) 39)
  177. (
  178.         (tooltype
  179.                 (dest (tackon EasyFRdestdir "EasyFR.guide"))
  180.                 (setdefaulttool "SYS:Utilities/AmigaGuide")
  181.         )
  182. ))
  183.  
  184. (copyfiles
  185.         (source (tackon efrdir "ReadMe.mui"))
  186.         (dest EasyFRdestdir)
  187.         (infos)
  188. )
  189. (if (> (/ (getversion) 65536) 38)
  190. (
  191.         (tooltype
  192.                 (dest (tackon EasyFRdestdir "ReadMe.mui"))
  193.                 (setdefaulttool "SYS:Utilities/MultiView")
  194.         )
  195. ))
  196.